home *** CD-ROM | disk | FTP | other *** search
/ BBS in a Box 7 / BBS in a Box - Macintosh - Volume VII (BBS in a Box) (January 1993).iso / Files / Prog / T / Think-Pascal-7.0.cpt / THINK Pascal Interfaces / FileTransferTools.p < prev    next >
Encoding:
Text File  |  1991-04-05  |  1.4 KB  |  103 lines  |  [TEXT/PJMM]
  1. {    This file has been processed by The THINK Pascal Source Converter, v1.1.    }
  2.  
  3. {}
  4. {    FileTransferTools.p}
  5. {    Pascal Interface to the Connection Manager Tools.}
  6. {    }
  7. {    Copyright © Apple Computer, Inc.    1988-90}
  8. {    All rights reserved}
  9. {}
  10.  
  11. {$IFC UNDEFINED UsingIncludes}
  12. {$SETC UsingIncludes := 0}
  13. {$ENDC}
  14.  
  15.  
  16. unit FileTransferTools;
  17. interface
  18.     uses
  19.         Types, OSUtils, AppleTalk, Script, Packages, Memory, Dialogs, CTBUtilities, FileTransfers;
  20.  
  21.  
  22.  
  23.  
  24.  
  25.  
  26.  
  27.  
  28.  
  29.  
  30.  
  31.  
  32.  
  33.  
  34.  
  35.  
  36.  
  37.  
  38.     const
  39. {    messages for fDEFs        }
  40.         ftInitMsg = 0;
  41.         ftDisposeMsg = 1;
  42.         ftSuspendMsg = 2;
  43.         ftResumeMsg = 3;
  44.         ftMenuMsg = 4;
  45.         ftEventMsg = 5;
  46.         ftActivateMsg = 6;
  47.         ftDeactivateMsg = 7;
  48.         ftGetErrorStringMsg = 8;
  49.  
  50.         ftAbortMsg = 52;
  51.  
  52.         ftStartMsg = 100;
  53.         ftExecMsg = 102;
  54.  
  55.  { messages for validate DefProc                }
  56.  
  57.         ftValidateMsg = 0;
  58.         ftDefaultMsg = 1;
  59.  
  60. {    messages for Setup DefProc                }
  61.  
  62.         ftSpreflightMsg = 0;
  63.         ftSsetupMsg = 1;
  64.         ftSitemMsg = 2;
  65.         ftSfilterMsg = 3;
  66.         ftScleanupMsg = 4;
  67.  
  68. {    messages for scripting defProc             }
  69.         ftMgetMsg = 0;
  70.         ftMsetMsg = 1;
  71.  
  72. {    messages for localization defProc        }
  73.  
  74.         ftL2English = 0;
  75.         ftL2Intl = 1;
  76.  
  77. { def type }
  78.  
  79.         fsetType = 'fset';
  80.         fvalType = 'fval';
  81.         flocType = 'floc';
  82.         fscrType = 'fscr';
  83.         fdefType = 'fdef';
  84.         fbndType = 'fbnd';
  85.         fverType = 'vers';
  86.  
  87.  
  88.     type
  89.         FTSetupPtr = ^FTSetupStruct;
  90.         FTSetupStruct = packed record
  91.                 theDialog: DialogPtr;
  92.                 count: INTEGER;
  93.                 theConfig: Ptr;
  94.                 procID: INTEGER;
  95.             end;
  96.  
  97.  {UsingFileTransferTools}
  98.  
  99.  
  100. implementation
  101. end.
  102.  
  103.